      DOUBLE PRECISION ZERO,ONE,TWO,THREE,FOUR,FIVE,SIX,SEVEN,C45,
     *    TWOM2,TWOP4,TWOP11,
     *    ONEP3,ONEP5,P2,P5,P4,P7,P8,P9,TM12,
     *    TM10,TM9,TM8,TM7,TM6,TM5,TM4,TM3,TM2,TM1,TP1,TP2,TP3,TP4
      PARAMETER (ZERO=0.D0,ONE=1.D0,TWO=2.D0,THREE=3.D0,FOUR=4.D0,
     *    FIVE=5.D0,SIX=6.D0,SEVEN=7.D0,C45=45.D0,
     *    TWOM2=.25D0,TWOP4=16.D0,TWOP11=2048.D0,ONEP3=1.3D0,
     *    ONEP5=1.5D0,P2=.2D0,P4=.4D0,P5=.5D0,P7=.7D0,P8=.8D0,P9=.9D0,
     *    TM12=1.D-12,
     *    TM10=1.D-10,TM9=1.D-9,TM8=1.D-8,TM7=1.D-7,TM6=1.D-6,TM5=1.D-5,
     *    TM4=1.D-4,TM3=1.D-3,TM2=1.D-2,TM1=1.D-1,TP1=1.D1,TP2=1.D2,
     *    TP3=1.D3,TP4=1.D4)
